perm filename E[1,VDS] blob sn#010367 filedate 1970-10-02 generic text, type T, neo UTF8
00100	C	CALIBRATES THE CALCOMP PLOTTER
00200	C	MAKES A SQUARE 5 INCHES ON A SIDE
00300		INTEGER Z
00400		CALL PLOTS(Z)
00500		IF (Z.EQ.0) GO TO 1
00600		PAUSE 'PLOTTER...OK '
00700	1	CALL PLOT(1000,0000,2)
00800		CALL PLOT(1000,1000,2)
00900		CALL PLOT(0000,1000,2)
01000		CALL PLOT(0000,0000,2)
01100		END